home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 April / 64er_Magazin_87-04_1987_Markt__Technik_de.d64 / gfl v1.1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  99 lines
  1. 10 a=a+1:if a=1 then load"gdm.codes",8,1
  2. 15 b=b+1:if b=1 then load"gdm.obj",8,1
  3. 20 bm=49664:fort=0 to 7:poke 49438+t,2^t:next:poke53269,0:poke53280,0:poke646,1
  4. 25 poke 53281,0:buff=bm+2:poke53272,23
  5. 30 poke657,128:print"[147][199]eos [198]ile [204]inker  von [212]horsten [208]etrowski[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  6. 35 input " [218]u linkendes [198]ile";sf$:ff=0
  7. 36 close 15:close 2:open 15,8,15,"io":open 2,8,2,"#"
  8. 40 if in$="$" then sf$=chr$(0)
  9. 45 gosub 210:if ff=0  then 35
  10. 50 print"[198][201][204][197]-[197][201][206][212][210][193][199]:[146]":if it<>0 then 75
  11. 55 it=1:is=0
  12. 60 print#15,"b-a 0";it;is:input#15,rep,dummy$,it,is
  13. 61 if rep=0 then it=1:is=0:goto 75
  14. 65 if rep=65 and it=0 then print"-[206]ichts mehr frei !":end
  15. 75 poke rb+21,0:poke rb+19,it:poke rb+20,is:print"    [199][197][207][211] [198]iletyp :"
  16. 80 print"0  [206]icht [199][197][207][211]",,,"1  [194]asic",,,,"2  [193]ssembler",,,"4  [211]ystem-[196]atei",,,
  17. 85 print"5  [196]esk[164][193]ccessory",,,"6  [193]pplikation",,,"8  [198]ont-[198]ile",,,
  18. 90 print"9  [196]ruckertreiber",,,"10 [197]ingabetreiber"
  19. 95 ad=rb+22:print" [201]hre [215]ahl";:gosub 180:gt=val(in$)
  20. 100 ad=rb+23:ou$="[211]chreibjahr":gosub205:ou$="     -monat":gosub205
  21. 105 ou$="       -tag":gosub205:ou$="    -stunde":gosub205
  22. 110 ou$="    -minute":gosub 205
  23. 115 print#15,"b-p 2 0":sys 49193:print#15,"u2:2 0";at;as:print"[201]nfoschirm"
  24. 120 print#15,"u1:2 0";it;is:sys 49152:pokebm,0:poke bm+1,255:poke bm+2,3
  25. 125 poke bm+3,21:poke bm+4,193:poke bm+69,gt:poke bm+70,0
  26. 130 fort=0 to 62:poke 832+t,peek(bm+5+t):next:poke bm+68,129
  27. 135 gosub 285:print"[147][211]tartadresse";:ad=bm+71:gosub 185:mem=mem-2:gosub190
  28. 140 print"  [197]ndadresse";:ad=bm+73:gosub 185
  29. 145 print"   [197]insprung";:ad=bm+75:gosub 185
  30. 150 print"'[195][204][193][211][211]'";:ad=bm+77:l=20:gosub 200
  31. 155 print"'[193][213][212][207][210]'";:ad=bm+97:l=19:gosub 200
  32. 160 print" '[201][206][198][207]'";:ad=bm+160:l=94:gosub 200
  33. 165 print#15,"b-p 2 0":sys 49193:print#15,"u2:2 0";it;is:print"[198]ertig!"
  34. 170 close 2:close 15:goto 445
  35. 175 print" :";:open 3,0,0:input#3,in$:close 3:print
  36. 176 if left$(in$,1)<>"$" then return
  37. 177 dez=0:forc=1to4:act=(asc(mid$(in$,c+1,1))and127)-48
  38. 178 if act>12 then act=act-7
  39. 179 dez=dez+16^(4-c)*act:nextc:in$=str$(dez):print"(";in$;" )":return
  40. 180 gosub 175:poke ad,val(in$):return
  41. 185 gosub 175:mem=val(in$)
  42. 190 if mem<0 then mem=0
  43. 191 b1=int(mem/256):b0=((mem/256)-int(mem/256))*256
  44. 195 poke ad,b0:poke ad+1,b1:return
  45. 200 gosub 175:we$=left$(in$,l):goto 425
  46. 205 print ou$;:gosub200:poke ad,val(in$):ad=ad+1:return
  47. 210 at=18:as=1:print" [196]isk-[211]earch ...":ff=0
  48. 215 print#15,"b-p 2 0":print#15,"u1:2 0";at;as:sys 49152:poke 53280,0:sb=0
  49. 220 rb=32*sb+buff:input#15,er,er$,et,es
  50. 225 if er<>0 then print"[196]isk-[197]rror ";er;":";er$;et;es:end
  51. 230 sys 49259,(rb+3),16,nf$:printnf$:ls=len(sf$):ri$=right$(sf$,1)
  52. 235 if ri$<>"*" and mid$(nf$,ls+1,1)<>"." then 265
  53. 240 if ri$="*" and sf$=left$(nf$,ls-1)+"*"  then 250
  54. 245 if sf$<>left$(nf$,ls) then 265
  55. 250 cn=len(nf$)
  56. 255 if mid$(nf$,cn,1)="." and cn>0 then cn=cn-1:goto 255
  57. 260 sf$=left$(nf$,cn):it=peek(rb+19):is=peek(rb+20):ff=1:return
  58. 265 sb=sb+1:if sb<8 then 220
  59. 270 at=peek(buff-2):as=peek(buff-1):if at=0 then return
  60. 275 goto 215
  61. 280 b1=int(ad/256):b0=((ad/256)-int(ad/256))*256:return
  62. 285 print"[147] [201]con [197]dit[146]":poke 49425,32:poke 49430,42
  63. 290 sy$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  64. 295 print"  [176]"sy$"[174]"
  65. 300 ad=832:for y=0 to 20
  66. 305 print"  [221]";:forx=0 to 2:sys49407,peek(ad):ad=ad+1:next x:print"[221]":nexty
  67. 310 print"  [173]"sy$"[189]"
  68. 315 print""tab(28);"^^^^^"
  69. 320 poke 53269,1:poke 2040,13:poke 53248,255:poke 53249,76:poke 53288,1
  70. 325 poke 53264,0:x=0:y=0:ox=2022:op=0:dd=1107
  71. 330 poke ox,peek(ox)and127:poke dd,peek(dd)or128
  72. 335 get key$:if key$="" then 335
  73. 340 ox=dd:if key$="" and x<23  then x=x+1
  74. 345 if key$="[157]" and x>0 then x=x-1
  75. 350 if key$="[145]" and y>0 then y=y-1
  76. 355 if key$="" and y<20 then y=y+1
  77. 360 if key$<>"q" then 370
  78. 365 fort=0 to 62:poke49669+t,peek(832+t):next:poke 53269,0:return
  79. 370 if key$<>"r" then 390
  80. 375 poke 832,255:poke 833,255:poke 834,255:poke 893,255:poke 894,255
  81. 380 poke 892,255:fort=835 to 889 step 3
  82. 385 poke t,peek(t)or128:poke t+2,peek(t+2)or1:next:goto 295
  83. 390 if key$="[147]" then fort=832 to 895:poke t,0:next:goto 295
  84. 395 if key$<>" " then 415
  85. 400 if (peek(by)and bi)=bi then 410
  86. 405 poke by,peek(by)or bi:poke dd,170:goto 415
  87. 410 poke by,peek(by)and(255-bi):poke dd,160
  88. 415 dd=1107+y*40+x:by=832+(y*3)+int(x/8):bi=2^(7-(int(((x/8)-int(x/8))*8)))
  89. 420 goto 330
  90. 425 we$=we$+chr$(0):for w=1 to len(we$):we=asc(mid$(we$,w,1))
  91. 430 if we>64 and we<91 then we=we+32:goto 440
  92. 435 if we>192 and we<219 then we=we-128
  93. 440 poke ad-1+w,we:next w:return
  94. 445 print" ([206])ochmal oder ([197])nde ?"
  95. 450 get key$:if key$="" then 450
  96. 455 if key$="n" or key$="[206]" then run20
  97. 460 if key$="e" or key$="[197]" then new
  98. 465 goto 450
  99.